home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / win_.310 / testps.tx_ / testps.tx
Text File  |  1992-03-09  |  3KB  |  79 lines

  1. % This is a PostScript program that will printout the current
  2. % communications settings of a PostScript printer that supports
  3. % the sccbatch operator.
  4. %
  5. % To use: copy this file to the port connected to the PostScript printer.
  6. %
  7. % Copyright (C) 1991, Microsoft Corp.
  8. %
  9. /buf 10 string def
  10. /Courier findfont 10 scalefont setfont
  11. /Parity [ (None) (Odd) (Even) (None) ] def
  12. /Flow   [ (Xon/Xoff) (Hardware) (Hardware) ] def
  13. statusdict /sccbatch known {
  14.     statusdict begin 25 sccbatch end    % get comm settings
  15.  
  16.     72 144 moveto                       % print baud rate
  17.     (Baud Rate:) show
  18.     222 144 moveto
  19.     exch buf cvs show
  20.  
  21.     72 129 moveto                       % print data bits
  22.     (Data Bits:) show
  23.     222 129 moveto
  24.     dup -5 bitshift 3 and               % isolate data bits
  25.     1 eq { (7) } { (8) } ifelse         % translate to string
  26.     show
  27.  
  28.     72 114 moveto                       % print parity
  29.     (Parity:) show
  30.     222 114 moveto
  31.     dup 3 and                           % isolate parity bits
  32.     Parity exch get                     % look up in string table
  33.     show
  34.  
  35.     72 99 moveto                        % print stop bits
  36.     (Stop Bits:) show
  37.     222 99 moveto
  38.     dup -7 bitshift                     % isolate stop bits
  39.     1 eq { (2) } { (1) } ifelse         % translate to string
  40.     show
  41.  
  42.     72 84 moveto                        % print flow control
  43.     (Flow Control:) show
  44.     222 84 moveto
  45.     -2 bitshift 3 and                   % isolate flow control bits
  46.     Flow exch get                       % look up in string table
  47.     show
  48. } {
  49.     72 144 moveto
  50.     (Could not determine printer settings.  If printer is connected) show
  51.     72 129 moveto
  52.     (to a parallel port (LPTx) no configuration is necessary.  If) show
  53.     72 114 moveto
  54.     (printer is connected to a serial port (COMx) find the DOS MODE) show
  55.     72 99 moveto
  56.     (command for this port and use those settings.  This is usually) show
  57.     72 84 moveto
  58.     (found in your autoexec.bat file.) show
  59. } ifelse
  60.  
  61. { vmreclaim } stopped pop           % if this is Level 2 printer force
  62.                                     % garbage collection so vmstatus is
  63.                                     % accurate
  64.  
  65. vmstatus exch sub exch pop          % get maximum - used on TOS
  66.  
  67. 72 174 moveto                       % display maximum VM 
  68. (Max Printer VM (KB):) show
  69. 222 174 moveto
  70. dup 1024 div truncate buf cvs show
  71.  
  72. 72 159 moveto
  73. (Max Suggested VM (KB):) show            % display maximum suggested VM (85%)
  74. 222 159 moveto
  75. 0.85 mul 1024 div truncate buf cvs show
  76.  
  77. showpage
  78. 
  79.